unit U_SeviyeTanim;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClassEmptyList, ImgList, DB, ADODB, Menus, ActnList,
  StdCtrls, Buttons, fcLabel, Grids, Wwdbigrd, Wwdbgrid, ExtCtrls,
  fcStatusBar, XPMan, StdActns, Mask, wwdbedit, Wwdotdot, Wwdbcomb;

type
  TfmSeviyeTanim = class(TfmFormClassEmptyList)
    Yetki: TwwDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure grdListeDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSeviyeTanim: TfmSeviyeTanim;

implementation
uses data;
{$R *.dfm}

procedure TfmSeviyeTanim.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmSeviyeTanim := nil;
end;

procedure TfmSeviyeTanim.grdListeDblClick(Sender: TObject);
begin
//  inherited;
end;

procedure TfmSeviyeTanim.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

